فيجوال بيسك للعرب 
بسم الله الرحمن الرحيم 


وأفضل الصلاة و أتم التسليم على رسولنا الكريم 

السلام عليكم ورحمة الله وبركاته 
رضا الناس غاية لا تدرك 
ضحكت فقالوا ألا تحتشم 
بكيت فقالوا ألا تبتسم 
بسمت فقالوا يرائي بها 
عبست فقالوا بدا ما کتم 
صمت فقالوا كليل اللسان 
نطقت فقالوا كثير الكلم 
حلمت فقالوا صنيع الجبان 
ولو کان مقتدرا لانتقم 
بسلت فقالوا لطیش به 
وماکان مجترئا لو حكم 
يقولون شذ إذا قلت لا 
وإمعة حين وافقتهم 
فأيقنت أني مهما أرد 


رضا الناس لا بد من أن أذم 


تحية طيبة وبعد: 


الموضوعين لم أجد موضوع يطرح نفس الفكرة تماما وإنما بتشابه وبعض التعقيد لذلك سأعيد بناء الفكرة و أطرحها في هذا 
الموضوع إن شاء الله من جديد بأسلوب بسيط ومطول قليلا من الناحية النظرية ليتم استيعابها بالشكل الكافي . 

بداية وقبل كل شيء الطريقة مطروحة لأسباب تعليمية وطبعا لن أناقش فعالية الحماية أو قوة الكسر لان الأمر مفروغ منه 
ولا أحب الولوج فيه لكن إن شاء الله سيتم تغطية بعض الجوانب الوقائية لهذا الموضوع . 
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سنعتمد في برنامجنا الذي سنقوم بتصميمه طريقة الحماية عبر تسجيل وتفعيل البرنامج وهي أن برنامجنا عند تشغيله يظهر 


للمستخدم رقم ويطالبه بإدخال الرقم المقابل له وهذا الرقم طبعا سيكون فريد أو مميز أي يختلف من جهاز إلى أخر ولنا 
الحرية في حال اعتماد رقم قطعة في الجهاز أو دالة معينة وبعد ظهور الرقم للمستخدم يتم إرساله لك لتوليد الرقم المقابل له 
و إرساله للعميل ليعمل البرنامج إذا كان الرقم مطلوب بمجرد التشغيل أو ليقوم بتفعيل كامل الميزات إذا كنت عرضته 
بطريقة تعطيل بعض النوافذ أو الخصائص. 

إذا الفكرة الأساسية أن برنامجنا يطلب رقم ليصبح نسخة كاملة . 


بداية نستخر ج رقم فريد من جهاز الحاسوب بحيث يكون هذا الرقم يختلف بين كل حاسب و أخر كرقم القرص الصلب أو 
المعالج أو ... ونقوم بعمليات تمويه له لكي لا يظهر مكشوفا كما هو فينتج رقم التسجيل للمستخدم. 


الآن نقوم بعلميات تمويه أخرى لرقم التسجيل لنشتق رقم التفعيل فالبرنامج يحوي رقم القطعة أي إحدى عتاد الحاسوب ورقم 
تسجيل ورقم تفعيل فرقم القطعة لا علاقة لنا به لأننا بعد استخرجاه عدلناه ليظهر بطريقة أخرى والناتج سيكون رقم 
التسجيل الآن نعيد نفس الكرة ونعدل التسجيل لاستخراج رقم التفعيل وبذلك برنامجنا يجوي الأرقام الثلاثة و الظاهر منها 
هو رقم التسجيل فقط لدى العميل. 


سيقوم العميل بإرسال رقم التسجيل لنا لنستخر ج رقم التفعيل بنفس الطريقة التي استخدمناها في برنامجنا ونرسله له وعندها 
تتم المقارنة بين الرقمين وكسر البرنامج من قبل المهندس العكسي عفوا أقصد المقارنة بين الرقمين وتفعيل البرنامج في حال 


الطريقة التي سنتبعها في درسنا هي رقم المعالج البر وسيسور. 


زمن ۷/06 كنا نستخدم مكتبة ميكروسوفت و٣‏ |ام أ٥ S‏ "٠ط‏ لاستخراج رقم المعالج وفي الدوت نت سنستخدم 
System .Management.dl|‏ لاستخراج الرقم و المكتبة نستطيع من خلالها استخراج مواصفات عتاد الجهاز لكم كبير 
من هذا العتاد ما يهمنا في موضوعنا هو رقم المعالج كونه فريد ونريد الاعتماد عليه في تغيير الرقم لكل مستخدم لبرنامجنا. 


افتح 2008 Microsoft Visuaا Studio‏ و انشا مشروع جدید وسمه ما شئت 


توجه الی نافذة on ٤ع×ماo r6۲‏ utiاSo‏ واضغط عل المشروع بالزر الأیمن واختر الخصائص ۴5٥ا‏ 6م٥٣۴‏ ادخل إلى 
التبويب ءع۸٠عRe‏ و أضف Add References‏ المكتبة ام System .Manageme‏ كما في الصورة التالية: 
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ماع وجج مود » 


I Add Reference 


Application ق‎ 1 1 : 
NET |CoM | Projects || Browse | Recent | 
Lormpile 
Loampoanent Mame Wersion 
Debug Systern, Identityadel 23.0.0.0 


System, Identitymodel, Selectors 3.0.0.0 


References astem TO Log 
| System. Management 


System, Management, Instrımentation 


Resources System, Messaging 
System, Met 
SErYÎCES System, Printing 
System, Runtime, Remoting 
settings System, Runtime , Serialization 
Systern, Runtime , Serialization, Forrnatters, Soap 
“iui System, SECUrIKY 
NIRA Syste, Seryiceodel 
System, ServiceModel, Web 
My Extensions | System, ServiceProcess 
18 
SecUriEY > 
Publish 


بعد إضافة المكتبة توجه للنموذج أي الفورم و أضف صندوق نص تحت مسمى ل|×80×٠1‏ وزر أمر وسمه 
GetldButton‏ 


EE NOUR-Pracessorld لك‎ EK 


الآن ضغطتين متتاليتين على زر الأمر لإدخال الكود المناسب لاستخراج رقم المعالج ووضعه في صندوق النص : 
وبالأحرى هذا الكود كاملا أولا استيراد لوظائف المكتبة وبعدها كود الزر: 


Imports System.Management 
Public Class Form 1 
Private Sub GetldButton_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles GetldButton.Click 

Dim Searcher As ManagementObjectSearcher 

Searcher = New ManagementObjectSearcher("Select Processorld From 
Win32_Processor") 

For Each Device As ManagementObject In Searcher.Get 

For Each Prop As PropertyData In Device.Properties 
TextBoxld. Text = (Prop.Value.ToString) 
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Next‏ 
Next‏ 
End Sub‏ 


End Class 
قم بتشغی ارتوا غط على الزر وستجد بإذن الله رقم المعالج يطبع في صندوق النص.‎ 
: بالنسبة لشرح الكود السابق‎ 


في البداية استيراد فضاء المكتبة وفي كود الزر قمنا بالبحث في مواصفات المعالج ٣sSS0ععc‏ ه٣۴‏ عن قيمة مuا۷a‏ 
الخاصية ك|٣s0ئومعمم۴‏ بواسطة حلقة ۴2٥1‏ ۴۴۲ وعند إيجادها نستخرجها في صندوق النص. 


ربما يسأل البعض لماذا لا نعرض الرقم مباشرة بدون الحلقة والبحث فيها فالجواب سيكون لان رقم الخاصية بين خصائص 
المعالج لن تكون الأولى وربما يختلف ترتيبها من جهاز لأخر لذلك نحن نبحث عنها ضمن المواصفات كلها وعند إيجادها 


الأن نستطيع استخدام رقم المعالج كما هو لعمليات التسجيل والتفعيل بحيث يكون الرقم مباشرة رقم تسجيل ورقم التفعيل 
يكون بإضافة بعض أرقام أو معادلة له لكن بهذه الطريقة إذا كان المستخدم لديه بعض البديهة فسينتبه إلى الرقم ويكتشف 
ر اا رة ر ار ى كه اة الل ان قا و ا 0 ر 
د العار ةبط ر ك المكر ١‏ مره في اا ف ان اها عه اك ن كه ورك اهل افون 


أدرج صندوقي نص جديدين تحت مسميات 4ع ٦٥×18 0×R‏ و ا ٦٥×8 0×XA‏ لیصبح التصمیم: 


HEl NOUR-Processarld 


في صندوق النص الأول ۲٠×80×|١‏ سأستخدم دالة التحويل إلى الاسكي (الناتج سيكون رقمي) وهذه طرقة سهلة لتلقين 
رقم التفعيل للعميل كونها محصورة بالشكل الرقمي من ٠‏ إلى ٩‏ فقط وبعيدة عن الرموز أو الأحرف 


أضف الدالة التالية لبرنامجك : 


Function Str2Int(ByVal InStrng As Object) As String 
Dim StrLn As Integer 
Dim Cntr As Integer 
Dim NewStr As String 
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Str2lnt = "" 
StrLn = Len(InStrng) 
If StrLn = O0 Then Exit Function 
NewStr = '"" 
For Cntr = 1 To StrLn 
Select Case Mid(InStrng, Cntr, 1) 
Case "O" To "Zz" 
NewStr = NewStr & Asc(Mid(InStrng, Cntr, 1)) 
End Select 
Next Cntr 
Str2lInt = NewStr 
End Functio 


و أضف في أخر كود الزر السطرين التالين : 


TextBoxReg. Text = Str2Int(TextBoxld. Text) 
TextBoxAct. Text = Str2Int(TextBoxReg. Text) 
: أي يصبح الكود كاملا‎ 


Imports System.Management 
Public Class Form 1 
Private Sub GetldButton_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles GetldButton.Click 
Dim Searcher As ManagementObjectSearcher 
Searcher = New ManagementObjectSearcher("Select Processorld From 
Win32_Processor") 
For Each Device As ManagementObject In Searcher. Get 
For Each Prop As PropertyData In Device.Properties 
TextBoxld. Text = (Prop.Value.ToString) 
Next 
Next 
TextBoxReg. Text = Str2Int(TextBoxld. Text) 
TextBoxAct. Text = Str2Int(TextBoxReg. Text) 
End Sub 
Function Str2Int(ByVal InStrng As Object) As String 
Dim StrLn As Integer 
Dim Cntr As Integer 
Dim NewStr As String 


Str2lnt = "" 
StrLn = Len(InStrng) 
If StrLn = O0 Then Exit Function 
NewStr = '"" 
For Cntr = 1 To StrLn 
Select Case Mid(InStrng, Cntr, 1) 
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Case "O" To "z"‏ 
NewStr = NewStr & Asc(Mid(InStrng, Cntr, 1))‏ 
End Select‏ 
Next Cntr‏ 
Str2Int = NewStr‏ 
End Function‏ 
End Class‏ 


شغل البرنامج وجرب الضغط على الزر وسيظهر أمامك الشكل التالي : 


HE NOUR-Pracessarld E EK) 


û383F9FFODOODEE1 


فالرقم الأول هو رقم المعالج سنخفيه عن العميل 
الرقم الثاني هو رقم التسجيل مشتق بتحويل رقم المعالج إلى قيم الاسكي وهو سيظهر للعميل ويرسله لنا 


الرقم الثالث رقم التفعيل مشتق من رقم التسجيل بنفس الطريقة الأولى وهو سيكون مخفي للعميل وهذا الرقم سيكون لدينا 
أيضا بالقيام بعملية تحويل التسجيل إلى اسكي أي قيم رقمية لإرساله إلى العميل وعندما يدخله تتم المقارنة بينه وبين رقم 
التفعيل المخفي عنه إذا تساوى الرقمين تتم العملية و إلا فلا 


وهذا الشكل يوضع العملية: 
NOUR-Processorld E E‏ 


4515651 0577070484848445 643 


من فلك أدخل رقم تفجيل النسخة الضسرسل من قبل الشركة هنا 


فالمربعات ذات اللون الأسود لن تظهر للعميل و إنما سيظهر فقط رقم التسجيل الذي سيرسله لنا أي المربع الأبيض الأول 
ومربع يطلب منه إدخال رقم التفعيل المرسل له من قبلنا وهو المربع الأخير 


وبعد إدخال الرقم تتم المقارنة بين الرقمين في المربعين الأخيرين في حال التساوي تتم العملية وإلا فلا 
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بالة لطريقة افير قكما لأحظون خار كا استخذام ذالة التخويل لقي السك اتح ويمكنك أعتماد أي رة اتشفير 
س مان ا حر ا ا و اة ا ا غ ا 
أكثر أو تشويش السلسة كلها أو أخذ مواضع محددة من السلسة أو PES‏ الخ 


الأن طريقة المقارنة بين رقم التفعيل المخفي و الرقم الذي أدخله العميل 
طبعا وجود المقارنة بحسب معلومات المهندس العكسي يسهل تجاوز البرنامج وكسره 
الطريقة المحلية هي الأتي : 
أضف زر أمر وسمه )0 )ا Bu‏ وصندوق النص الرابع الذي سيدخل العميل فيه الرقم سمه ٣seل×‏ 80× 
و ضف کود الزر ۸0k‏ )ں8 التالي: 


Private Sub ButtonOk Click (ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles ButtonOk.Click 
lf TextBoxUser.Texlt = TextBoxAct.Text Then 
MSGBoR (T2 a را ا‎ ( 
Else 
Ms3gB80x ("خاطى المدخل الرقم")‎ 
EHA LF 
End Sub 


الآن جرب لترى النتيجة : 


FFl NOUR-Processorld 


الرقم المدخل خاطم 


نحن اعتمدنا إظهار رسالة للعميل تفيد بأن الرقم صح أو خطا أما بالشكل العملي فالأمر سيكون بتفعيل فتح نوافذ واستخدام 
إمكانيات كالطباعة متلا أو فتح البرنامج إذا كان التفعيل يظهر عند إقلاع البرنامج مباشرة لذلك نحن نستعيض بعبارة 


"له كرا الام عل 2" NSG86%)‏ 
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بالإجراء المطلوب تنفيذه عند إدخال القيمة الصحيحة وإلا لن نظهر له شيء لان المهندس العكسي ينصحنا بذلك 


If TextBoxUser.Text = TextBoxAct.Text Then 
Ms980× ("لك شكراً البرنامج تفعيل ت")‎ 
ETH LE 
ومن نصائحه لنا هي أن لا نستخدم ×80 وء" ونحن أيضا سنلتزم بأوامره فكما ذكرت سابقا الرسالة لإيضاح نجاح العملية‎ 
أما الأصل فهو استخدام الإجراء المناسب كفتح البرنامج أو تفعيل الميزات المحجوبة‎ 


ربما يسأل البعض ما دخل المهندس العكسي في الموضع أقول أنه ربما يفكر في الكسر لذلك نحن نريده أن يكسب الجائزة 
بعرق جبينه وليس بسهولة لذلك سنجعل عملياتنا مخفية عليه بعض الشيء لنكسبه بعض الخبرة ويكون الكسر تم بتعبه 
وعرق جبينه و إلا فنحن نتحرى الخير في الناس وفي عملائنا أنهم لا يحاولوا كسر برامجنا ويتركونا نتسبب. 


نتابع مع بعض النصائح : لا تجعل مكان التفعيل هو نفسه مكان المقارنة وإعطاء الصلاحيات 
ما المقصود بذلك ؟ 


المقصود أحبتي : أننا عند تفعيل برنامجنا بشكله الصحيح فأنه لا يتم تخزين الرقم الخاطئ و يتم تخزين الرقم لأنه صحيح 
فقط آما تفعيل الميزات فتحتاج لمقارنة أخرى في فورم أخر بعيدا عن مكان التفعيل بشرح بسيط لو أدخل المستخدم رقم 
التفعيل الصحيح ستظهر رسالة تفيد بذلك وبنفس الوقت نخزن الرقم الصحيح في مكان معين (البرنامج- الريجستري ملف ) 
وعند إقلاع البرنامج يتم المقارنة مرة أخرى بنفس الطريقة لان البرنامج ربما يتم تجاوزه من خلال الهندسة العكسية ويتم 
تدمير قسم المقارنة لذلك المقارنة الأساسية تتم في مكان أخر وواجهة التفعيل هي فقط لتخزين الرقم الصحيح وعند إقلاع 
البرنامج تتم المقارنة بين رقم التفعيل والرقم المخزن من جديد صح يفعل الميزات وإلا فلا وهكذا نقوم بحشو برنامجنا 
بعشرة مقارنات ونضع عشرة مقارنات أخرى احتياط مثل بعد التشغيل الخامس للبرنامج في اليوم الأول من كل شهر وبعد 
شهرين بذلك نضمن أن قفزات الجمل الشرطية مهما حطم منها يبقى شيء مفعوله موجود 


الهدف : بهذه الطريقة التمويهية نجعل أمر تجاوز المقارنات صعب بالتالي لن يكسر وطبعا هنا لن نسبية بطريقة القفز 
وتدمير المقارنات ماذا لو فكر بتدمير جميع المقارنات فالأمر صعب لان برنامجك ربما يحوي مقارنات عادية كالبحث 
وغيره بالتالي لن يعمل البرنامج بشكل صحيح فليس أمامه في طريقة القفز إلا العمل على البرنامج لمدة سنة كاملة وبعدين 
يعطينا نسخة مكسورة تعمل بطلاقة . 


الطرقة الثانية للمهندس العكسي : هي استنتاج الرقم طبعا سيكون هذا الأمر مجدي له أكثر بخلاف العادة فبمجرد الوصول 
لأول مقارنة بين رقم التفعيل و الرقم المدخل سيكشفه إذا كان ذكي قليلا حسب معلوماتي المتواضعة عن هذه الأمور. 
لكن هذه الطريقة تفتح أمامه مجالين : 

الأول : أنه سيكشف الرقم للجهاز الذي يحاول الكسر عليه بالتالي يجب عليه الذهاب لكل جهاز والكسر عليه بهذه الحالة 


نضمن أن النسخ المكسورة ستكون أقل ما يمكن لأنه مش معقول يحمل العدة ويجوب على المستخدمين ياهو كسر برنامج 
فلان . 


الثاني : هو الخطير لو استطاع كشف المعادلة بالتالي يستطيع عمل مولد أرقام مثل الذي لدينا وهذا سنحاول تجنبه بتعقيد 
المعادلة المخصصة لاستخراج رقم المعالج وتشفيره بحيث لا يستطيع فك عمليات التشفير على الرقم. 


أتوقع كافي نظري حول تجنب الكسر و لا أقول لا أو انه صعب الكسر فالسوق أكبر دليل لكن كان سعيي لتوليد فكرة حول 
الأمر للجميع حتى يناقشوه في برامجهم ويستخدموه بالشكل الأمثل الذي يناسبهم. 
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نعود لكودنا في الزر طبعا الدالة يمكنك أن ترميها في موديول وتخلص من رؤيتها أمامك لأنها جاهزة ولن نعدل عليها وإنما 
سنستدعيها فقط لذلك أول شيء قم بقص الدالة و الصقها في الموديل . 


الآن سنجعل رقم المعالج يظهر بمجرد فتح الفورم طبعا فقط ننقل الكود من حدث ضغط الزر GetldButton_Click‏ 
إلى تحميل الفورم ۴0۲۳١1_10204‏ ولسنا بحاجة لأكثر من صندوقين نص واحد تسجيل والأخر تفعيل والقيم الوسطى 
نخزنها ضمن متغيرات مك¡ 1مل| 2مك¡ فيصبح الكود كالأتي : 


Imports System.Management 


PUBLIC CLASS EOE 
Dim idp As String ' المعالج رقم‎ 
Dim idplIl A5 §EÊ£1Gg ' التشسجيل رقح‎ 
Dim idp2 As String ' التفعيل رقم‎ 


Private Sub Forml1 Load(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles MyBase.Load 
Dim Searcher As ManagementObjectSearcher 
Searcher = New ManagementObjectSearcher ("Select 
EFEOCESSOEIG FEO WIR BEOCESSOE™) 
For Each Device As ManagementObject In Searcher.Get 
For Each Prop As PropertyData In Device.Properties 
i1dp = (Prop.Value.ToString) 
Next 
NEXE 
idp1 Str2Int (idp) 
idp2 = StrZ2ZInt (idp1) 
TextBoxReg.Text = idpl 
Eid Ub 
PFI¥atê SUB BüËEOnOK ClicK(ByVal sender As System. Object; 
ByVal e As System.EventArgs) Handles ButtonOk.Click 
If TextBoxUser.Text = idp2 Then 
NS;8ox )" 2 ("لك قكرا الرنامى تفيل‎ 
ENC. LE 
End Sub 
ENG CIS: 
لإدخال رقم‎ ٦٥×8 ٥×لئs6۲ یظھر فیھ رقم التسجیل و‎ ٦٥×8 0×۸ ٥9 لاحظ أننا الآن بحاجة لصندوقي نص هما‎ 
التفعيل من قبل العميل أما البقية والزر لا تلزم لان القيم صارت ضمن متغيرات ولا ننسى الدالة ألصقناها بالموديول من قبل‎ 
: فشكل نافذة التفعيل الآن هو الأتي‎ 


بقلم: نور نبهان www.vb4arab.com nabhan170@hotmail.com‏ 


فيجوال بيسك للعرب 


RE] NOUR-Processorld EK 


48515651 O57 7UFU484848445443 


من فضلك أدخل رقم تفعيل النسخة المرسل من قبل الشركة شنا 
| متت | 


لو انتبهت للكود فجملة ۴| تناقش الحالة الصحيحة وإذا خطأ لن نقوم بأي عمل لأننا بحالة توليد مسج بوكس أنه خطأً نسهل 
العملية بحسب النصائح السابقة وكما ذكرت أنفا المسج بوكس يجب الاستغناء عنه لأنه أولا نقطة ضعف وثانيا لن يفيدنا 

تخيل انه المستخدم فعل البرنامج خلاص أغلق البرنامج وهو يشغله ويراه مفعل أو أغلق فورم التفعيل و خزن الرقم أو 

حتى خزن الرقم وبس. وما في ضرورة نلقمه إياها بالملعقة بيب مسج بوكس بيب تم التفعيل يا عميل خلص أغلق فورمه 
التفعيل ورح من هنا بيب شكرا لك هيه صار عندك نسخة كاملة هذا الحشو مش مهم . 


طيب الآن ربما يسأل السائل ربما يستنتج العميل أو حبيبنا العكسي أن الرقم المستخرج هو رقم المعالج وبنظرة بسيطة 
بالمقارنة بين رقمي التسجيل و رقم المعالج سينتبه أن الثاني مشتق من الأول بالتحويل الرقمي كيف لتشابه أرقام في المعالج 
مع المقابل الرقمي في حال التكرار مثلا لدي يظهر 


رقم المعالج: 


0383F9F FOO0OOO06B1 
رقم التسجيل:‎ 
48515651705770704848484848546649 


فربما يفهم العملية لذلك سنحاول جعله لا يفهم العملية بالقيام بتشويش السلسة النصية ومن ثم تحويلها إلى رقم وبذلك حتى 
الرقمين المتشابهين سيكون بالتشويش لديها قيم مختلفة : 


لذلك أول شيء اذهب للموديول و الصق الدالة التالية أسفل الدالة السابقة صاحبة الاسكي ليصبح الموديول كاملا كالأتي: 


Module Modulel 
"` الاتكي ال الالجونل‎ 
Function Str2Int (ByVal InStrng As Object) As String 
Dim Strln As Integer 
Dim Cntr As Integer 
Dim NewStr As String 


Str2Int = "™" 
StrLn = Len (InStrng) 
Tf StELNn = 0 Thep Exit FUNCELORN 
NEWSLE Ss WW 
ror CrntE = 1 To StEFLN 
Select Case Mid(InStrng, Cntr, 1) 
age "OF" Tor aT 
NewStr = NewStr & Asc (Mid(InStrng, Cntr, 1)) 


بقلم: نور نبهان www.vb4arab.com nabhan170@hotmail.com‏ 


فيجوال بيسك للعرب 
HII SELECEÊ‏ 
Next Cntr‏ 
Str2Int = NewStr‏ 
EG. FURECEILON‏ 


انشوق د اة" 
Public Function Obfuscate (ByVal origText As String) As‏ 
SEEING‏ 
Dim textBytes As Byte() =‏ 
System. Text.Encoding.Unicode.GetBytes (origText)‏ 
For counter As Integer = 0 To textBytes.Length - 1‏ 
If (textBytes (counter) > 31) And (textBytes (counter)‏ 
Then‏ )127 < 
textBytes (counter) += CByte (counter Mod 31 + 1)‏ 
If (textBytes (counter) > 126) Then‏ 
textBytes (counter) -= CByte (95)‏ 
EIN LE‏ 
Next counter‏ 
Return System. Text.Encoding.Unicode.GetChars (textBytes)‏ 
End Function‏ 


End Module 
نشوش بالدالة بهذه الطريقة‎ 
Idp1 = Obfuscate (Idp) 
الآن رقم المعالج هو‎ 
0383F9FFOO0O0O006B1 
بالتشویش بدالة ٥ا2 cوں ا0 یصبح‎ 
16=:0DDSUACEGIQ_P 
الآن نحوله إلى الرقمي‎ 
4954615879688385656769717380 


لاحظ من جديد هذا الرقم يختلف عن القيمة السابقة لأننا قمنا بتشويش رقم المعالج قبل تحويله إلى قيم الاسكي طبعا أنت 
تستطيع التفعيل بالقيم الحرفية لكن الرقمية تبقى أسهل للتلقين كما ذكرنا أول الموضوع 


حاول المقارنة بين اللونين الأحمرين في رقم المعالج ورقم التسجيل لن تستنتج شيء لان التشويش قضى على هذا الأمر. 
بينما كان الأمر جلي قبل التشويش. 
لاحظ الفرق السابق فلا علاقة واضحة أبدا خمسة أصفار وكل شفرة لها مقابل مختلف هكذا يصبح الأمر مشفر أكثر 


عد للنموذج وعدل الكود كالأتي : 
بقلم: نور نبهان www.vb4arab.com nabhan170@ hotmail.com‏ 


فيجوال بيسك للعرب 


Imports System.Management 


PUDLLE  CLIRES EFOEML 
DIM Idp A8 SEFING 
Dim Idpl As String 
Dim Tdp2 As SEEING 


Private Sub FrmActiv_ Load(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles MyBase.Load 


لاع الخمااف 


رةك" 


Dim Searcher As ManagementObjectSearcher 

Searcher = New ManagementObjectSearcher ("Select 
PEOCESSOEIG, FEO WNINIA2 PEOCESSOE™) 

For Each Device As ManagementObject In Searcher.Get 


For Each Prop As PropertyData In Device.Properties 


الرقة استخراج' 
Idp = (Prop.Value.ToString)‏ 
Next‏ 


الرقم تشويش' 


کي الى حواة"' 
Idp = Str2Int (Idp)‏ 


س سے سے سے سے سے سے س ہے 


Idpl1 = Obfuscate (Idp) 
' سكي الل وواه‎ 

| 2 ا رقم ' 

Idpl1 = Str21Int (Idp1l) 


Next 


Eid Süb 


Private Sub ButtonOk Click (ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles ButtonOk.Click 


مال فادغر' 


Idp1l 


1idp2 


If TextBoxUser.Text = idp2 Then 


(”تك قشكر ا الوتامح تفع 2 *) N5086×‏ 
Eid. TÊ‏ 


بقلم: نور نبهان nabhan170@hotmail.com‏ 


EN, Sub 
Enid Class 


www.vb4arab.com 


فيجوال بيسك للعرب 
اتضح الأمر أكثر الآن فنحن نقوم باستخراج رقم المعالج وتشويشه وتحويله إلى أسكي فينتج رقم التسجيل ونطبعه للمستخدم 
في صندوق النص ونطالبه بالمقابل الذي هو عبارة عن رقم التسجيل مشوش ومحول إلى أسكي من جديد 


وبعدها المقارنة في حدث الزر لن أكرر المسج بوكس بس للتوضيح حول المقارنة وليس للاستخدام. 


الآن ربما تتململ من أن رقم المعالج ٠١‏ رقم ينتج عنها رقم تسجيل ۳۲ رقم ورقم التفعيل سيكون بالتالي ٦ ٤‏ رقم فهذا كثير 
مع أنني أفضل طول الرقم لكننا سنكتفي بطول رقم التسجيل ۳۲ رقم ونقوم بتصغير رقم التفعيل إلى ٠١‏ رقم مثلا وذلك 
بعملية اقتصاص من رقم التفعيل كالآتي وذلك بإضافة السطر التالي في أخر الفورم لوود (اقتصاص سلسة نصية) 


رقم 14 اقتصاص' 
Idpl1l = (Idp1.Substring (0, 14) )‏ 
طبعا لك الحرية في اختيار طول الرقم بتغير الرقم ٠١‏ إلى أي رقم آخر لكن طول الرقم يصعب عملية الاشتقاق أصلا. 
كذلك يمكنك اختيار نقطة البدء من أي محرف ٠‏ 
الآن يسأل السائل إذا قام العميل بالتفعيل فهل سأقول له مبروك فقط أما ماذا يحدث 
نبد من جدید : 


عند إدخال الرقم الصحيح سنقوم بتخزينه وأكرر لك الحرية في اختيار موضع التخزين ولا يهم ظهور الرقم لأنه صحيح 
ونحن من زودناه به لذلك سألجأً إلى Settings‏ 


نتجه إلى orerام×٤‏ utionاS0‏ ونضغط على المشروع بالزر الأيمن ونختار عا ممه۴r‏ ونذھب lتبريب Settings‏ 
ونضيف إليه متغير جديد سأسميه ۲٥5ل‏ ٥ه"‏ وليس أ٤‏ 2٠هام‏ شوية تمويه يبدو التجنيد مؤثر بي كثير. 


اسم المتغير 
Name = nameuser‏ 
نوع المتغير 
Type = String‏ 


Value = 


بقلم: نور نبهان www.vb4arab.com nabhan170@hotmail.com‏ 


فيجوال بيسك للعرب 


Application Synchronize [E] Yiew Zade Access Modifier: Friend + 

Lompile e : e 
Application settings alla You Eo store and retrieve property settings and other information Far Your application d¥namically, For 
example, the application can save a user's color preferences, then retrieve them the next time it runs; Learn more about 

Debug application settings... 

Referenzes 

Hara Type Slope Yale 

REE NamêUSsEF String E م‎ 

Services 2 2 

Settings 

Signing 


MY Extensions 


Security 


Publish 


الآن سنتجه لكود الزر ونغيره إلى 


Private Sub ButtonOk Click (ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles ButtonOk.Click 
جال .متغر"'‎ 
idp2 = Idpl 
If TextBoxUser.Text = idp2 Then 


My.Settings.nameuser = TextBoxUser. Text 
My.Settings.Save () 
EI 
EIQ, LE 
End Sub 


لاحظ الكود السابق في حال التساوي فإنه يسند الرقم إلى الإعدادات ثم يحفظها فقضية التفعيل كلها هنا هي هل الرقم 
متساوي إذا كان الجواب نعم فعندها لا يفعل الميزات بل يحفظ الرقم فقط وعملية التفعيل في أمكنة أخرى بعيدا عن 
مركز اختبار الرقم الظاهر للعميل و بذلك لن يظهر للعكسي الأمر واضح كالعادة . 

هل تم الأمر لا خطوة أخيرة فقط : 

الآن أصبح كود مشروعنا الكامل هو الأتي : 

الموديول : 


Module Modulel 


' الاأشكي, آل التجوبل‎ 
Function StEZ2Int (ByVal InStEnGg As Object) As8 StEing 
DIM SLEELN-.AS Ii EegGsf 


www.vb4arab.com nabhan170@ hotmail.com بقلم: نور نبهان‎ 


فيجوال بيسك للعرب 
Dim Cntr As Integer‏ 
Dim NewStr As String‏ 


SLEZLINE = WY 
Strln = Len(InStrng) 
IT  SirFED = 0O Then Exit Furgltion 
NEWSLE =. WT 
EOE ChltE = 1 To SIEELN 
Select Case Mid(InStrng, Cntr, 1) 
aê TOT To Ta" 
NewStr = NewStr & Asc(Mid(InStrng, Cntr, 1)) 
End Select 
Next Cntr 
Str2Int = NewStr 
Enid Function 


التفوين 3ا 
Public Function Obfuscate (ByVal origText As String) As‏ 
SEEING‏ 
Dim textBytes As Byte() =‏ 
System. Text.Encoding.Unicode.GetBytes (origText)‏ 
For counter As Integer = 0 To textBytes.Length - 1‏ 
If (textBytes (counter) > 31) And (textBytes (counter)‏ 
Then‏ )127 < 
textBytes (counter) += CByte (counter Mod 31 + 1)‏ 
If (textBytes (counter) > 126) Then‏ 
textBytes (counter) -= CByte (95)‏ 
BEL TE‏ 
Next coünter‏ 
Return System. Text.Encoding.Unicode.GetChars (textBytes)‏ 
Ed Function‏ 


End Module 


الفورم: 
Imports System.Management‏ 


PUBLIC CLES FOEML 
Dim Idp As String 
Dim Idpl1l As String 
Dim idp2 As String 


Private Sub FrmActiv_ Load(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles MyBase.Load 


بقلم: نور نبهان www.vb4arab.com nabhan170@hotmail.com‏ 


فيجوال بيسك للعرب 
للمغاع التملسلي الرقة' 
Dim Searcher As ManagementObjectSearcher‏ 
Searcher = New ManagementObjectSearcher ("Select‏ 
PEOCESSOFIG FEoM WINSZ PEOCESSOE™)‏ 
For Each Device As ManagementObject In Searcher.Get‏ 
For Each Prop As PropertyData In Device.Properties‏ 


و ا کے ا ا کے ی ا کی ی ا ا ا کے ےک ی ا ا ا 


Idp = (Prop.Value.ToString) 


Idp = Obfuscate (Idp) 
اسكي الى تحويله'‎ 
Idp = Str2Int (Idp) 

' التمجيل. رقم‎ 
TextBoxReg. Text 


الرقم تشويش' 

Idpl1 = Obfuscate (Idp) 

االشكي ال كونلة' 

القفعيل رتم" 

Idp1 = Str21Int (Idp1) 

رقم 14 اقتصاص' 

Idpl1l = (Idp1.Substring (0, 14)) 
EIQ Sub 


Private Sub ButtonOk Click (ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles ButtonOk.Click 
جمالي متغير'‎ 
idp2 = Idpl 
If TextBoxUser.Text = idp2 Then 
حقظ الاعك اخت'‎ 


My.Settings.nameuser = TextBoxUser. Text 
My.Settings.Save () 
Enid 
ER, LE 
ENd Sub 


End CLaSSs 


والتضفو الال 


بقلم: نور نبهان www.vb4arab.com nabhan170@hotmail.com‏ 


فيجوال بيسك للعرب 
HEl NOUR-Pracessarld‏ 


قم بنسخ رقم التسجيل و إرساله للشركة 
وسيتم إرسال رقم التقعيل للبرنامج 
لتحصل على كامل مميزات البرنامج 
رقم الهاتف انور نبهاتب 


٠‏ قم بإدخال رقم التفعيل الذي حصلت عليه 
في الصندوق السابق ثم إضغط عل زر تفعيل النسخة 


تقعيل النسخة 


انتهى أمر التفعيل إذا خطأ لن يقوم بأي إجراء منعا لإجراء التجارب من قبل المعتدين و إذا صح يحفظ الرقم فقط 


وتتم المقارنة لاحقاً. 


الآن طريقة المقارنة بعيدا عن فورم التفعيل كالأتي 


اذهب لأي فورم و ألصق كود الرقم 


Imports System.Management 


EUBDLILGE- CLS: FoEML 
Dim Idp As String 
Dim IdpLlL As StEinNnG 
DIM 1d2 &§ SEEING 


Private Sub FrmActiv_ Load(ByVal sender As System.Object, 

ByVal e As System.EventArgs) Handles MyBase.Load 

لمعا التمالو ين الترقح' 

Dim Searcher As ManagementObjectSearcher 

Searcher = New ManagementObjectSearcher ("Select 
EFOCESSOFII, FEO WIR PEOCESSOE™) 

For Each Device As ManagementObject In Searcher.Get 

For Each Prop As PropertyData In Device.Properties 
roo990999LL Lg g9 


سے سے سے بے بر سے سے سے بر سر سے ر سے سے ب سے سے سے بے سے سے بے سے 


رفخ ااشتخر اج 
Idp = (Prop.Value.ToString)‏ 


بقلم: نور نبهان www.vb4arab.com nabhan170@hotmail.com‏ 


فيجوال بيسك للعرب 


ا ی کے ا کے کے کی ا کا ی ی ی کے ی ی کے ی ی کے ا ا ی کے ی کے ا 


Idp = Obfuscate (Idp) 
المكي ال ويال"‎ 
Idp = Str2Int (Idp) 

التسجيل رقم ' 


کے کے کی کے کے کی کے کے کی کے کے کے کی کے کے کی کے کے کے ا 


Idpl1 = Obfuscate (Idp) 

EE el 

افع وق" 

Idp1 = Str2Int (Idp1) 

رقم 14 اقتصاص' 

Idpl1l = (Idp1.Substring (0, 14) ) 
End Sub 


ففي أي فورم أو فورما محددة على مزاجك سيتم استنتاج الرقم كما تعلمنا سابقا في فورم التفعيل وحفظ الرقم في متغير 


كما تلاحظ من الكود أخر قيمة كانت رقم التفعيل المكون من ٠٤١‏ رقم والمتغير هر p1رك1‏ 


المقارنة كالتالي 
If My.Settings.nameuser = Idpl Then‏ 
"deo ERIN‏ 
Else‏ 
'end‏ 
o‏ 


والآن ضع المقارنة أينما تريد في زر الطباعة في زر البحث في تحميل فورم المبيعات في .... الخ .... 
واختر الإجراء المناسب سواء بإغلاق البرنامج أو بتعطيل بعض الأزرار أو بإخفاء نوافذ أو .... الخ 
وكل ما كثرت المقارنات صار البرنامج أبطاً عفواً أقصد صار الأمر مبهم أكثر (ملح وفلفل) 

عداك عند وضع مقارنات زمنية. (شهرية ... ساعية ... بعد ٠١‏ استعمالات ... الخ .....) بمحض إرادتك . 
مداخلة ' 


التفعيل أو استخدم ۲٣۷‏ . 


خالية فتتساوى القيمة ويتم التفعيل أو يولد خطأ . 


إلى هنا ننتهي من قسم التسجيل ونذهب الآن لقسم التفعيل: 


بقلم: نور نبهان www.vb4arab.com nabhan170@hotmail.com‏ 


فيجوال بيسك للعرب 
إن برنامج التفعيل يجب أن يتواجد لديك فقط أو للأشخاص الاعتباريين الذي يحق لهم توليد أرقام التفعيل بحسب رغبتك. 


لان برنامج التفعيل هو الكيجن لبرنامجك إن صح التعبير 


طريقة توليد أرقام التفعيل : 
هنا الأمر بسيط جدا لأنه جزء صغير مما سبق 
وهو جزء من مشروعنا فهو رقم التسجيل مشوش ومحول لاسكي ومقتص ٠٤١‏ رقم 


ننشاً مشروع جديد ونضيف فيه موديول نضع فيه الدوال السابقة كما في التسجيل كالموديول السابق تماما 


وننشأً فورم جديد عليه زر أمر وصندوêيy‏ نص TextBoxUser TextBoxReg Button Ok‏ 
التصميم : 


8 - توليه أرقا التفعيل 8 


012356789 


هنا سيظهر رقم التقعيل الخاص بالعميل 


رقم التفعيل 


كود زر التفعيل : 


FUDLLE CIS EFOEML 

DIM. XXX AS STEIN 

Private Sub ButtonOk Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles ButtonOk.Click 


' التفعيل رقم‎ 
XXX = Str2Int (XXX) 
رقم 14 اقتصاص'‎ 
XXX = (XXX.Substring (0, 14)) 
رقخ استتتاج'‎  لبغفتلا‎ 
TextBoxUser. Text = XXX 
EAC SUS 
End CIA 


طبعا لا حاجة للشرح فالأمر واضح مما سبق ومن الكود (فقط بعض التعديلات على رقم التسجيل) 


بقلم: نور نبهان www.vb4arab.com nabhan170@hotmail.com‏ 


فيجوال بيسك للعرب 
الآن ما عليك إلا الضغط على زر رقم التفعيل بعد إدخال رقم التسجيل وسيظهر في الصندوق الثاني رقم التفعيل لترسله 
للعميل ويتمكن من تفعيل البرنامج بالشكل الصحيح . 


وبذلك نكون قد ناقشنا الموضوع بطريقة مطولة بعض الشيء لذلك معذرة مني إليكم . 


في المرفقات تجدون كل من : 
مشروع التسجیل و٥۲۸‏ ںہ مشروع التفعیل ۲۸٥٤‏ ںہ ملفات تنفیذية للتجربة ٤×۴٤‏ 
C#‏ 
حاولت طرح الموضوع للإخوة المستخدمين للسي شارب 
بعد التعديل يصبح المثال كالتالي: 
في gnllدJgı WMI_Processor_lInformation.cs‏ 
الكود: 


using System; 

using System.Collections.Generic; 
using System.Text; 

using System.Management; 


namespace WMI ProcessorInformation 
1 


DUDIL elas WMI BPFocessof Information 


{ 


//cpu serial1l,مقر المعاج‎ 
BUDLLE SEC SEEING GeECOUITGAO) 
{ 
EFy 
{ 
ManagementObjectSearcher searcher = new 


ManagementObjectSearcher("root\\CIMV2", 
"SELECT * FROM WIRNS2 PFocesSSoE™); 


foreach (ManagementObject queryOb]j in searcher.Get () ) 
{ 
return queryOb] ["Processorld"] .ToString (); 
} 
} 
catch (ManagementException e) 


{ 


EEC TULL; 


} 


EFEEUED DULL; 


} 


التشويش// 
pDuübIiCG Static SEEING OBfUsCate (SEEING oOrigText)‏ 


{ 


byte[] bytes = Encoding.Unicode.GetBytes (origText); 
int num2 = bytes.Length و‎ 
TOF (INE 13S OF 1 <= ROMA; TEH) 


{ 
بقلم: نور نبهان www.vb4arab.com nabhan170@hotmail.com‏ 


فيجوال بيسك للعرب 
if ((bytes[i] > Oxlf) & (bytes[i] < O0x7f))‏ 
{ 
int index = i;‏ 
bytes [index] = (pyte) (bytes[index] + ((byte) ((i % Oxlf) + 1)));‏ 
if (bytes[i] > Ox7e)‏ 
{ 
index = i;‏ 
bytes[index] = (pyte) (bytes [index] Oxf);‏ 


} 
} 


return new string (Encoding.Unicode.GetChars (bytes)); 


} 


7 / سكي‎ 
A 
} 
في الفورم‎ 
TextBox3 TextBox2 TextBox1 Button1 : أضف الأدواٽ‎ 
وضع الكود التالي للزر ل ۸1 0)) ں6‎ 
{ 
/7 اعا وتخ‎ 
textBox1.Text = (WMI _ProcessorlInformation WMI Processor Information. GetCpuld()); 
1الرقم تشويش//‎ 
textBox2.Text = WMI Processor Information. Obfuscate (textBox1.Text)); 
2الرقم تشويش//‎ 
texltBox3.Text = (WMI Processor Information. Obfuscate (textBox2. Text) )7; 


بمکنک کاله کما تریدرن انطااق سا سق فی شرا الباق 


ه الغرض من برنامجنا هو غرض تعليمي. 

e‏ إذا كان برنامجك يستحق الحماية فقم بحمايته. 

ه لا تعرض برنامجك مباشرة و إنما قم بنشر نسخة محدودة المهام أصلا أي البرمجة غير كاملة بمثال عدم وجود 
البحث أبدا أو الطباعة أو .... وعند الطلب أرسل للعميل فقط نسخة كاملة تحتاج للتفعيل بإحدى الطرق ويفضل أن 
تتوسع في البحث عن حمايات أقوى مما قدمناه. 

ولكم مني جزيل الشكر لإصغائكم. 


سبحانك ۱ بحمدك أشهد أن لا إله إلا أنت أستغفرك و أتوب اليك 
و سهد ان لا اله | سدعهفرات و انوب إل 
و لا حول ولا قوة إلا بالله العظيم 


أخوكم في الله نور نبهان (المزمجر سابقا) 


بقلم: نور نبهان www.vb4arab.com nabhan170@hotmail.com‏ 


